object Form1: TForm1
  Left = 0
  Top = 0
  Caption = 'Form1'
  ClientHeight = 54
  ClientWidth = 116
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object IdCmdTCPServer1: TIdCmdTCPServer
    Active = True
    Bindings = <>
    DefaultPort = 12121
    OnConnect = IdCmdTCPServer1Connect
    CommandHandlers = <
      item
        CmdDelimiter = ' '
        Command = 'HALT'
        Disconnect = False
        Name = 'cmdHALT'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        ParseParams = True
        Tag = 0
        OnCommand = IdCmdTCPServer1CommandHandlers0Command
      end
      item
        CmdDelimiter = ' '
        Command = 'QUIT'
        Disconnect = False
        Name = 'cmdQUIT'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        ParseParams = True
        Tag = 0
        HelpSuperScript = 'kil'#233'p'#233's.'
        OnCommand = IdCmdTCPServer1CommandHandlers0Command
      end
      item
        CmdDelimiter = ' '
        Command = 'NORMAL'
        Disconnect = False
        Name = 'cmdNORMAL'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        ParseParams = True
        Tag = 0
        OnCommand = IdCmdTCPServer1CommandHandlers2Command
      end
      item
        CmdDelimiter = ' '
        Command = 'WILD'
        Disconnect = False
        Name = 'cmdWILD'
        NormalReply.Code = '200'
        ParamDelimiter = ' '
        ParseParams = True
        Tag = 0
        OnCommand = IdCmdTCPServer1CommandHandlers3Command
      end>
    ExceptionReply.Code = '500'
    ExceptionReply.Text.Strings = (
      'Unknown Internal Error')
    Greeting.Code = '200'
    Greeting.Text.Strings = (
      'Gomby buzizo 0.1 - udvozollek te szemet!')
    HelpReply.Code = '100'
    HelpReply.Text.Strings = (
      'Help follows')
    MaxConnectionReply.Code = '300'
    MaxConnectionReply.Text.Strings = (
      'Too many connections. Try again later.')
    ReplyTexts = <>
    ReplyUnknownCommand.Code = '400'
    ReplyUnknownCommand.Text.Strings = (
      'Unknown Command')
    Left = 40
    Top = 8
  end
end
